home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Visual Basic Source Code
/
Visual Basic Source Code.iso
/
vbsource
/
tab100
/
player.bas
< prev
next >
Wrap
BASIC Source File
|
1995-09-06
|
4KB
|
158 lines
Sub CalculateTableTotal ()
Dim CardVal As Integer
Dim i As Integer
TableTotal = 0
For i = 1 To TableNo
CardVal = CardValue(Cards(Val(Form1.Picture1(i).Tag)))
SetNewValue CardVal
TableTotal = TableTotal + CardVal
Next i
End Sub
Sub CheckAcesAsOne (First As Integer, Curr As Integer, V As Integer, A() As String, Pos As Integer, j As Integer, VNo As Integer)
If Curr = 11 Then
If V = First + 1 Then
A(VNo + 1) = Str$(Pos) + "," + Str$(j)
VNo = VNo + 1
Exit Sub
End If
End If
If First = 11 Then
If V = 1 + Curr Then
A(VNo + 1) = Str$(Pos) + "," + Str$(j)
VNo = VNo + 1
Exit Sub
End If
End If
If First = 11 Then
If Curr = 11 Then
If V = 2 Then
A(VNo + 1) = Str$(Pos) + "," + Str$(j)
VNo = VNo + 1
Exit Sub
End If
End If
End If
End Sub
Sub CheckEqualRank (C1 As Integer)
Dim PlayerVal As Integer
Dim NoEqual As Integer
Dim T1 As Integer
Dim T2 As Integer
Dim T3 As Integer
PlayerVal = CardValue(Cards(C1))
i = 1
For i = 1 To TableNo
If PlayerVal = CardValue(Cards(Val(Form1.Picture1(i).Tag))) Then
Equal(NoEqual + 1) = i
NoEqual = NoEqual + 1
End If
Next i
If NoEqual = 0 Then
Exit Sub
End If
For i = NoEqual To 1 Step -1
AddToScore CardValue(Cards(Val(Form1.Picture1(Equal(i)).Tag)))
AddToEqualRank (CardValue(Cards(Val(Form1.Picture1(Equal(i)).Tag))))
ShiftLeftTable Equal(i)
AddToCardsTotal (1)
Next i
End Sub
Sub CheckEqualValue (C1 As Integer)
Dim PlayerVal As Integer
Dim NoValid As Integer
Dim T1 As Integer
Dim T2 As Integer
Dim T3 As Integer
Dim i As Integer
PlayerVal = CardValue(Cards(C1))
SetNewValue PlayerVal
For i = 1 To (TableNo - 1)
CheckTableCards Valid(), PlayerVal, i, NoValid
Next i
If NoValid = 0 Then
Exit Sub
End If
If NoValid = 1 Or GameSwitch = COMPUTER_MOVE Then
T1 = Val(Left$(Valid(1), (InStr(1, Valid(1), ",") - 1)))
T2 = Val(Right$(Valid(1), (Len(Valid(1)) - (InStr(1, Valid(1), ",")))))
AddToCardsTotal (2)
AddToScore CardValue(Cards(Val(Form1.Picture1(T1).Tag)))
AddToScore CardValue(Cards(Val(Form1.Picture1(T2).Tag)))
AddToEqualRank CardValue(Cards(Val(Form1.Picture1(T1).Tag)))
AddToEqualRank CardValue(Cards(Val(Form1.Picture1(T2).Tag)))
If T1 > T2 Then
ShiftLeftTable (T1)
ShiftLeftTable (T2)
Else
ShiftLeftTable (T2)
ShiftLeftTable (T1)
End If
Exit Sub
End If
Dim T1Value As String
Dim T1Suit As String
Dim T2Value As String
Dim T2Suit As String
Load Form2
For i = 1 To NoValid
T1 = Val(Left$(Valid(i), (InStr(1, Valid(i), ",") - 1)))
T2 = Val(Right$(Valid(i), (Len(Valid(i)) - (InStr(1, Valid(i), ",")))))
T1Value = Str$(CardValue(Cards(Val(Form1.Picture1(T1).Tag))))
T1Suit = Suits(SuitOf(Cards(Val(Form1.Picture1(T1).Tag))))
T2Value = Str$(CardValue(Cards(Val(Form1.Picture1(T2).Tag))))
T2Suit = Suits(SuitOf(Cards(Val(Form1.Picture1(T2).Tag))))
Form2.List1.List(i - 1) = T1Value + " of " + T1Suit + " and " + T2Value + " of " + T2Suit
Next i
Beep
Form2.Show MODAL
If OptionSelected <> 0 Then
i = OptionSelected
AddToCardsTotal (2)
T1 = Val(Left$(Valid(i), (InStr(1, Valid(i), ",") - 1)))
T2 = Val(Right$(Valid(i), (Len(Valid(i)) - (InStr(1, Valid(i), ",")))))
AddToScore CardValue(Cards(Val(Form1.Picture2(T1).Tag)))
AddToScore CardValue(Cards(Val(Form1.Picture2(T2).Tag)))
AddToEqualRank CardValue(Cards(Val(Form1.Picture2(T1).Tag)))
AddToEqualRank CardValue(Cards(Val(Form1.Picture2(T2).Tag)))
If T1 > T2 Then
ShiftLeftTable (T1)
ShiftLeftTable (T2)
Else
ShiftLeftTable (T2)
ShiftLeftTable (T1)
End If
Exit Sub
End If
End Sub